home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 024 - Big U Macroworks.dsk / STARTUP.bas < prev   
BASIC Source File  |  2019-02-16  |  11KB  |  102 lines
  1. 10  ONERR  GOTO 1000
  2. 20 V$ = "2.52 11-APR-87":D$ =  CHR$(4):Q$ =  CHR$(34):ST = 16384
  3. 25 NP = 6
  4. 30  HOME : PRINT  CHR$(21): TEXT : HOME : PRINT : INVERSE : HTAB 15: PRINT ":          :": HTAB 15: PRINT " MACROWORKS ": HTAB 15: PRINT ":          :": NORMAL : PRINT : HTAB 10: PRINT "Version "V$: HTAB 11: PRINT "____________________"
  5. 40  HTAB 10: PRINT "|";: HTAB 31: PRINT "|": HTAB 10: PRINT "| Copyright (c) 1986 |": HTAB 10: PRINT "|";: HTAB 31: PRINT "|": HTAB 10: PRINT "|   By Randy Brandt  |": HTAB 10: PRINT "|";: HTAB 31: PRINT "|"
  6. 50  HTAB 10: PRINT "|    Published by    |": HTAB 10: PRINT "|  BEAGLE BROS, INC. |": HTAB 10: PRINT "|____________________|": PRINT : PRINT 
  7. 58  VTAB 16: PRINT 
  8. 60  HTAB 12: PRINT "M - Main Menu"
  9. 65  HTAB 12: PRINT "N - Important Notes!"
  10. 70  HTAB 12: PRINT "C - Change Mouse"
  11. 80  HTAB 12: PRINT "Q - Quit to BASIC": PRINT 
  12. 90  HTAB 11: PRINT "Make a choice: ";: GET X$: IF X$ = "Q"  OR X$ = "q"  THEN  VTAB 16: CALL  -958: END 
  13. 95  IF X$ = "N"  OR X$ = "n"  THEN 200
  14. 100  IF X$ = "C"  OR X$ = "c"  THEN 430
  15. 110  IF   NOT (X$ = "M"  OR X$ = "m")  THEN 90
  16. 120  PRINT D$"-MAIN.MENU"
  17. 200  HOME : PRINT D$"PR#3": PRINT : INVERSE : VTAB 1
  18. 210  HTAB 29: PRINT " :                  : ": HTAB 29: PRINT "   MACROWORKS NOTES   ": HTAB 29: PRINT " :                  : ": PRINT : NORMAL : VTAB 2: POKE 1403,60: PRINT "Page 1 of "NP: VTAB 5
  19. 215  HTAB 8: INVERSE : PRINT " Customizing Alpha.Cat, Analyst, Galley and Main Menu ": NORMAL : HTAB 8: PRINT "Line 10 of these programs contains the default settings for the"
  20. 220  HTAB 8: PRINT "drive slot (DS), drive number (DN), printer slot (SL) and printer": HTAB 8: PRINT "string (PS$). You may change these to fit your preferences. See"
  21. 230  HTAB 8: PRINT "your printer manual for info on using PS$ to set printer options.": HTAB 8: PRINT "Sample emphasized mode: PS$ = CHR$(9)+"Q$"80N"Q$"+CHR$(27)+"Q$"E"Q$: PRINT 
  22. 235  HTAB 8: INVERSE : PRINT " AE Desktop Expansion ";: NORMAL : PRINT " V4.3 required. The printer buffer is disabled": HTAB 8: PRINT " when MACRO.SYSTEM is used, but not when APLWORKS.SYS is used.": PRINT 
  23. 236  HTAB 8: INVERSE : PRINT " Checkmate Expansion ";: NORMAL : PRINT " V4.3 required. It disables the clock and clock": HTAB 8: PRINT "commands. If you have V4.4, run CHECKMATE (Type "Q$"-CHECKMATE"Q$").": PRINT 
  24. 245  HTAB 8: INVERSE : PRINT " Clocks w/o expanders ";: NORMAL : PRINT " Run the program CLOCKS (Type "Q$"-CLOCKS"Q$").": PRINT 
  25. 250  HTAB 8: INVERSE : PRINT " Mouse owners ";: NORMAL : PRINT " Select option "Q$"C"Q$" BEFORE installing MACRO.SYSTEM. With": HTAB 8: PRINT "the mouse active, OA-X <left> or <right> changes the cursor blink rate."
  26. 290  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 2: POKE 1403,60: PRINT "Page 2 of "NP: VTAB 5: CALL  -958
  27. 300  HTAB 8: PRINT "MacroWorks was developed on Apples equipped with AE and Checkmate"
  28. 305  HTAB 8: PRINT "memory boards. Thanks to Bert, Sharon, Alan, Jack, Kristen, Liz,": HTAB 8: PRINT "Mark and Rob for their help and ideas. Thanks to Mike and Steve": HTAB 8: PRINT "for help relating to their AppleWorks expansion software."
  29. 310  PRINT : HTAB 8: PRINT "Thanks to Ben, Bryan, Gene and Jerry for their debugging help."
  30. 315  HTAB 8: PRINT "Special thanks to my wife Joanna and daughter Heather (and now Erika)": HTAB 8: PRINT "for not unplugging my computer (just the monitor).": PRINT 
  31. 320  HTAB 8: INVERSE : PRINT " FREE TIP ";: NORMAL : PRINT " If AppleWorks should ever lock up, press Control-Reset."
  32. 330  HTAB 8: PRINT "A "Q$"*"Q$" prompt will appear. Type "Q$"33DG"Q$" and press Return. AppleWorks": HTAB 8: PRINT "should spring back to life. This only works if MacroWorks is present."
  33. 332  HTAB 8: PRINT "The credit for this gem goes to Michael Wilks of Applied Engineering.": PRINT 
  34. 335  HTAB 8: INVERSE : PRINT " UNSOLICITED PLUG ";: NORMAL : PRINT " The best way to keep a datebook/calendar with": HTAB 8: PRINT "AppleWorks is by using DateWorks. Call (718) 531-5737 for info."
  35. 338  HTAB 8: PRINT "David Sachs & Associates  2274 56th Drive / Brooklyn, NY 11234"
  36. 340  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 2: POKE 1403,60: PRINT "Page 3 of "NP: VTAB 5: CALL  -958
  37. 342  HTAB 8: INVERSE : PRINT " MACRO TIPS ";: NORMAL : PRINT " Here are some creative uses for macros submitted by users:": PRINT 
  38. 344  HTAB 8: PRINT "1. Address an envelope (see Macro E in MACROS.AWP)."
  39. 346  HTAB 8: PRINT "2. Type the closing lines of a letter and your name."
  40. 347  HTAB 8: PRINT "3. Create multiple custom printers by having macros enter all the codes."
  41. 348  HTAB 8: PRINT "4. Convert a database to a DIF file, read it into the spreadsheet,": HTAB 11: PRINT "do calculations not available in the database, write to a DIF file,": HTAB 11: PRINT "and read it back into the database. Wow!": PRINT 
  42. 350  HTAB 8: INVERSE : PRINT " APPLEWORKS 1.3 ";: NORMAL : PRINT 
  43. 354  HTAB 8: PRINT "The RAMSPEED tip on page 36 can now be used with AW 1.3.": HTAB 8: PRINT "Quit to BASIC and type "Q$"-RAMDISK.MOD"Q$" to make it work.": PRINT 
  44. 360  HTAB 8: INVERSE : PRINT " CATALYST USERS ";: NORMAL : PRINT " Copy CATALYSTDESKTOP to your AppleWorks STARTUP disk.": PRINT 
  45. 370  HTAB 8: INVERSE : PRINT " FRENCH, GERMAN & SPANISH APPLEWORKS ";: NORMAL : PRINT " Quit to BASIC and run the program": HTAB 8: PRINT "called FOREIGN (Type "Q$"-FOREIGN"Q$").": PRINT 
  46. 381  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 2: POKE 1403,60: PRINT "Page 4 of "NP: VTAB 5: CALL  -958
  47. 383  HTAB 8: INVERSE : PRINT " POWER PRINT ";: NORMAL : PRINT " The latest from Beagle Bros!": HTAB 8: PRINT "Dot matrix printer enhancement utility by Rob Renstrom": PRINT 
  48. 385  HTAB 8: PRINT "Power Print downloads fonts to your printer so that AppleWorks can": HTAB 8: PRINT "print in any font style. Your printer speed is unchanged, but now": HTAB 8: PRINT "Old English, Bold, Script or any other font style is produced."
  49. 387  PRINT : HTAB 8: PRINT "Create your own fonts with the powerful editor, or use the many styles": HTAB 8: PRINT "included on the disk. You can print borders and small logos, and it's"
  50. 389  HTAB 8: PRINT "even possible to have a macro write a closing and sign your autograph!": PRINT : HTAB 8: PRINT "The custom fonts stay active when you exit AppleWorks, so you can do ":
  51. 390  HTAB 8: PRINT "fancy catalogs and program listings, too. Look for ads in the major": HTAB 8: PRINT "Apple magazines.": PRINT 
  52. 392  HTAB 8: INVERSE : PRINT " ANOTHER PLUG ";: NORMAL : PRINT " The best AppleWorks tip book we've ever seen is": HTAB 8: PRINT "AppleWorks Tips & Techniques by Robert Ericson (Sybex)"
  53. 393  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 2: POKE 1403,60: PRINT "Page 5 of "NP: VTAB 5: CALL  -958
  54. 394  HTAB 8: INVERSE : PRINT " SUPER MACROWORKS ";: NORMAL : PRINT " $49.95": HTAB 8: PRINT "AppleWorks 2.0 enhancement disk by Randy Brandt": PRINT 
  55. 395  HTAB 8: PRINT "Super MacroWorks adds MacroWorks features and much more to AppleWorks": HTAB 8: PRINT "versions newer than 1.3. Versions 1.3 and older require MacroWorks.": PRINT 
  56. 397  HTAB 8: PRINT "New commands let you cut-and-paste in the Data Base, find carriage": HTAB 8: PRINT "returns in the Word Processor, read disk directories into a Data Base"
  57. 399  HTAB 8: PRINT "file, enter the current date and time anywhere with one command,": HTAB 8: PRINT "set pathnames by choosing subdirectories from a list, etc, etc.": PRINT 
  58. 400  HTAB 8: PRINT "Super MacroWorks works great on the Apple IIgs!": PRINT 
  59. 402  HTAB 8: INVERSE : PRINT " Special Offer! ";: NORMAL : PRINT 
  60. 405  HTAB 8: PRINT "MacroWorks owners can send us their MacroWorks manual cover and $22.50 to";: HTAB 8: PRINT "get Super MacroWorks."
  61. 406  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: VTAB 2: POKE 1403,60: PRINT "Page 6 of "NP: VTAB 5: CALL  -958
  62. 407  HTAB 8: INVERSE : PRINT " PINPOINT ";: NORMAL : PRINT : PRINT 
  63. 408  HTAB 8: PRINT "The Pinpoint enhancement project (page 36 of the manual) has been killed": HTAB 8: PRINT "due to excessive complications. Sorry."
  64. 410  VTAB 22: PRINT : PRINT "    Press any key except Control, Shift, Reset, Caps Lock or the Apple keys": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: GOTO 30
  65. 430  HOME : PRINT : INVERSE : HTAB 10: PRINT " MACROWORKS MENUS ": NORMAL 
  66. 435  PRINT : PRINT "Leave the mouse disabled unless you havea mouse plugged in.": PRINT 
  67. 440  HTAB 8: PRINT "S - Set up AppleWorks mouse"
  68. 450  HTAB 8: PRINT "E - Enable the MacroWorks mouse"
  69. 460  HTAB 8: PRINT "D - Disable the MacroWorks mouse"
  70. 477  HTAB 8: PRINT "B - Back to the menu": PRINT 
  71. 480  HTAB 9: PRINT "Make a choice: ";
  72. 485  GET X$: IF X$ = "B"  OR X$ = "b"  THEN 30
  73. 490  IF X$ = "D"  OR X$ = "d"  THEN 510
  74. 495  IF X$ = "S"  OR X$ = "s"  THEN  PRINT X$: GOTO 600
  75. 500  IF   NOT (X$ = "E"  OR X$ = "e")  THEN 485
  76. 510  PRINT X$:ED = 0: IF X$ = "D"  OR X$ = "d"  THEN ED = 1
  77. 520  PRINT D$"BLOAD MENUS": POKE 16387,ED: PRINT D$"BSAVE MENUS"
  78. 600  HOME : PRINT : INVERSE : HTAB 10: PRINT " APPLEWORKS MOUSE ": NORMAL : PRINT 
  79. 610  HTAB 8: PRINT "E - Enable the AppleWorks mouse"
  80. 620  HTAB 8: PRINT "D - Disable the AppleWorks mouse"
  81. 630  HTAB 8: PRINT "C - Change mouse sensitivity"
  82. 640  HTAB 8: PRINT "B - Back to the menu": PRINT 
  83. 650  HTAB 9: PRINT "Make a choice: ";
  84. 660  GET X$: IF  ASC(X$) >95  THEN X$ =  CHR$( ASC(X$) -32)
  85. 670  IF   NOT (X$ = "B"  OR X$ = "C"  OR X$ = "D"  OR X$ = "E")  THEN 660
  86. 672  IF X$ = "B"  THEN 30
  87. 675  PRINT D$"BLOAD MACRO.SYSTEM,TSYS,A"ST
  88. 677  IF X$ = "C"  THEN 700
  89. 680  IF X$ = "D"  THEN  POKE ST +10,1
  90. 690  IF X$ = "E"  THEN  POKE ST +10,0
  91. 695  PRINT D$"BSAVE MACRO.SYSTEM,TSYS,A"ST: GOTO 30
  92. 700 MX =  PEEK(ST +8):MY =  PEEK(ST +9): HTAB 1: PRINT "The current setting is "MX" horizontal and "MY" vertical. Smaller numbers make the"
  93. 710  PRINT "mouse more responsive. Use even numbers only. ": PRINT 
  94. 720  INPUT "Enter a new X value: ";X1$: IF X1$ < >""  THEN MX =  VAL(X1$)
  95. 740  INPUT "Enter a new Y value: ";Y1$: IF Y1$ < >""  THEN MY =  VAL(Y1$)
  96. 750  POKE ST +8,MX: POKE ST +9,MY: POKE ST +10,0: GOTO 695
  97. 1000 ER =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219)
  98. 1010  IF EL = 120  THEN  VTAB 16: CALL  -958: PRINT : HTAB 7: PRINT  CHR$(7)"MAIN.MENU must be on the disk": END 
  99. 1015  IF EL = 310  THEN  VTAB 16: CALL  -958: PRINT : HTAB 7: PRINT  CHR$(7)"PIC.TITLE must be on the disk": END 
  100. 1020  IF EL = 520  THEN  VTAB 16: CALL  -958: PRINT : HTAB 7: PRINT  CHR$(7)"MENUS must be on the disk": END 
  101. 1030  IF EL = 675  OR EL = 695  THEN  VTAB 16: CALL  -958: PRINT : HTAB 7: PRINT  CHR$(7)"MACRO.SYSTEM must be on the disk": END 
  102. 1100  POKE 216,0: RESUME